CD BIT 75/CD BIT 75.iso/Software/LogOut/disk1/_SETUP.1/GCondom7.exe/0/RCDATA/TFRMQUOTASPORPAGAR/TFRMQUOTASPORPAGAR.txt

Text File | 2004-10-21 | 16KB | 657 lines

object frmQuotasPorPagar: TfrmQuotasPorPagar
  Left = 195
  Top = 100
  BorderStyle = bsNone
  Caption = 'frmQuotasPorPagar'
  ClientHeight = 396
  ClientWidth = 680
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnClose = FormClose
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Shape1: TShape
    Left = 0
    Top = 0
    Width = 680
    Height = 396
    Align = alClient
  end
  object Label2: TLabel
    Left = 10
    Top = 8
    Width = 201
    Height = 29
    Caption = 'Quotas por Pagar'
    Font.Charset = ANSI_CHARSET
    Font.Color = clGray
    Font.Height = -24
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    Transparent = True
  end
  object Label1: TLabel
    Left = 20
    Top = 72
    Width = 20
    Height = 13
    Caption = 'M�s'
    Transparent = True
  end
  object RxLabel2: TRxLabel
    Left = 638
    Top = 78
    Width = 10
    Height = 17
    Alignment = taRightJustify
    Caption = '0'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = 'Arial'
    Font.Style = []
    ParentFont = False
    Transparent = True
  end
  object Label4: TLabel
    Left = 20
    Top = 335
    Width = 429
    Height = 50
    Alignment = taCenter
    AutoSize = False
    Caption =
      'Seleccione o m�s desejado e a(s) quota(s) que pretende verificar' +
      ' se est�o pagas.'#13#10'Tenha em aten��o que pode verificar apenas quo' +
      'tas n�o preenchidas ou tamb�m verificar se est�o preeenchidas, m' +
      'as com valor zero.'
    Transparent = True
    WordWrap = True
  end
  object Label5: TLabel
    Left = 475
    Top = 328
    Width = 64
    Height = 13
    Caption = 'Total �rea:'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    Transparent = True
  end
  object Label6: TLabel
    Left = 475
    Top = 344
    Width = 102
    Height = 13
    Caption = 'Total Permilagem:'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    Transparent = True
  end
  object Label7: TLabel
    Left = 579
    Top = 328
    Width = 90
    Height = 13
    Alignment = taRightJustify
    AutoSize = False
    Caption = 'Label7'
    Transparent = True
  end
  object Label8: TLabel
    Left = 579
    Top = 344
    Width = 90
    Height = 13
    Alignment = taRightJustify
    AutoSize = False
    Caption = 'Label8'
    Transparent = True
  end
  object BitBtn1: TBitBtn
    Left = 500
    Top = 362
    Width = 75
    Height = 25
    Caption = '&Imprimir'
    Default = True
    TabOrder = 0
    OnClick = BitBtn1Click
    Glyph.Data = {
      36030000424D3603000000000000360000002800000010000000100000000100
      1800000000000003000000000000000000000000000000000000FFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFF000000404040000000FFFFFFFFFFFF000000FFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF00000040404050505040
      4040000000303030C0C0C0303030FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFF000000404040909090A0A0A0606060404040808080606060C0C0C03030
      30FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000505050909090A0A0A0A0A0A080
      8080606060404040808080B0B0B0909090303030FFFFFFFFFFFFFFFFFFFFFFFF
      000000909090A0A0A0CFCFCFCFCFCF808080808080606060606060404040B0B0
      B0303030FFFFFFFFFFFFFFFFFFFFFFFF606060A0A0A0CFCFCFCFCFCFC0C0C0CF
      CFCF808080808080606060606060202020FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      606060CFCFCFCFCFCFC0C0C0C0C0C0C0C0C0CFCFCF8080808080806060600000
      00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF6F6F6FCFCFCFC0C0C0A06060C0C0C0C0
      C0C0C0C0C0CFCFCF808080808080606060000000FFFFFFFFFFFFFFFFFFFFFFFF
      3F3F3FCFCFCFA06060C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0CFCFCF8080808080
      80000000FFFFFFFFFFFFFFFFFF3030306F6F6F7F7F7FCFCFCFC0C0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C0C0C0CFCFCF808080000000FFFFFFFFFFFF0000006F6F6F
      FFFFFFFFBFBF7F7F7FCFCFCFC0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0AFAF
      AF000000FFFFFFFFFFFF3F3F3FFFFFFFFFBFBFFFBFBFFFBFBF7F7F7FCFCFCFC0
      C0C0C0C0C0C0C0C0C0C0C0B0B0B0202020FFFFFFFFFFFFFFFFFF000000BFBFBF
      FFBFBFFFBFBFFFBFBFFFBFBF7F7F7FCFCFCFC0C0C0C0C0C0B0B0B0202020FFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFF000000BFBFBFFFBFBFFFBFBFFFFFFF6F6F6F3F
      3F3FCFCFCFB0B0B0202020FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      000000BFBFBFFFFFFF6F6F6F303030FFFFFF3F3F3F202020FFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000003F3F3F000000FFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF}
  end
  object BitBtn2: TBitBtn
    Left = 596
    Top = 362
    Width = 75
    Height = 25
    Caption = '&Cancelar'
    TabOrder = 1
    Kind = bkCancel
  end
  object DBGrid1: TDBGrid
    Left = 8
    Top = 112
    Width = 661
    Height = 215
    Color = 14413786
    DataSource = DataSource1
    FixedColor = 13551795
    Options = [dgTitles, dgColumnResize, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
    TabOrder = 2
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'C�digo'
        Width = 70
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Apelido'
        Width = 110
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Nome'
        Width = 115
        Visible = True
      end
      item
        Alignment = taCenter
        Expanded = False
        FieldName = 'Frac��o'
        Width = 60
        Visible = True
      end
      item
        Alignment = taCenter
        Expanded = False
        FieldName = 'Piso'
        Width = 38
        Visible = True
      end
      item
        Alignment = taCenter
        Expanded = False
        FieldName = 'Porta'
        Width = 37
        Visible = True
      end
      item
        Expanded = False
        FieldName = '�rea'
        Width = 55
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Permilagem'
        Title.Caption = '1/1000'
        Width = 45
        Visible = True
      end
      item
        Alignment = taCenter
        Expanded = False
        FieldName = 'Aux1'
        Title.Caption = 'Qt'
        Visible = True
      end
      item
        Alignment = taCenter
        Expanded = False
        FieldName = 'Aux2'
        Title.Caption = 'FR'
        Visible = True
      end
      item
        Alignment = taCenter
        Expanded = False
        FieldName = 'Aux3'
        Title.Caption = 'QE1'
        Visible = True
      end
      item
        Alignment = taCenter
        Expanded = False
        FieldName = 'Aux4'
        Title.Caption = 'QE2'
        Width = 25
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Aux5'
        Title.Caption = 'Hon'
        Width = 25
        Visible = True
      end>
  end
  object ComboBox1: TComboBox
    Left = 50
    Top = 70
    Width = 97
    Height = 21
    Style = csDropDownList
    ItemHeight = 13
    TabOrder = 3
    OnChange = ComboBox1Change
    Items.Strings = (
      'Janeiro'
      'Fevereiro'
      'Mar�o'
      'Abril'
      'Maio'
      'Junho'
      'Julho'
      'Agosto'
      'Setembro'
      'Outubro'
      'Novembro'
      'Dezembro')
  end
  object GroupBox1: TGroupBox
    Left = 170
    Top = 52
    Width = 435
    Height = 52
    Caption = ' Quotas '
    Color = clWhite
    ParentColor = False
    TabOrder = 4
    object DBText1: TDBText
      Left = 368
      Top = 21
      Width = 60
      Height = 17
      DataField = 'Nome Honor�rios'
      DataSource = Dados.dsCondominio
    end
    object CheckBox1: TCheckBox
      Left = 10
      Top = 20
      Width = 73
      Height = 17
      Caption = '&Quotiza��o'
      Color = clWhite
      ParentColor = False
      TabOrder = 0
      OnClick = ComboBox1Change
    end
    object CheckBox2: TCheckBox
      Left = 90
      Top = 20
      Width = 71
      Height = 17
      Caption = '&F.Reserva'
      Color = clWhite
      ParentColor = False
      TabOrder = 1
      OnClick = ComboBox1Change
    end
    object CheckBox3: TCheckBox
      Left = 170
      Top = 20
      Width = 84
      Height = 17
      Caption = 'Quota Extr. &1'
      Color = clWhite
      ParentColor = False
      TabOrder = 2
      OnClick = ComboBox1Change
    end
    object CheckBox4: TCheckBox
      Left = 260
      Top = 20
      Width = 85
      Height = 17
      Caption = 'Quota Extr. &2'
      Color = clWhite
      ParentColor = False
      TabOrder = 3
      OnClick = ComboBox1Change
    end
    object CheckBox5: TCheckBox
      Left = 350
      Top = 20
      Width = 18
      Height = 17
      Color = clWhite
      ParentColor = False
      TabOrder = 4
      OnClick = ComboBox1Change
    end
  end
  object RadioGroup1: TRadioGroup
    Left = 250
    Top = 16
    Width = 355
    Height = 37
    Caption = ' Verificar Campos '
    Color = clWhite
    Columns = 2
    ItemIndex = 1
    Items.Strings = (
      'Vazios'
      'Vazios ou com valor Zero')
    ParentColor = False
    TabOrder = 5
    OnClick = ComboBox1Change
  end
  object DataSource1: TDataSource
    DataSet = Table1
    Left = 608
    Top = 8
  end
  object Table1: TTable
    OnCalcFields = Table1CalcFields
    DatabaseName = 'Database1'
    Filtered = True
    TableName = 'Condominos.DB'
    Left = 640
    Top = 8
    object Table1Cdigo: TStringField
      FieldName = 'C�digo'
      Required = True
    end
    object Table1Apelido: TStringField
      FieldName = 'Apelido'
    end
    object Table1Nome: TStringField
      FieldName = 'Nome'
      Size = 40
    end
    object Table1Fraco: TStringField
      FieldName = 'Frac��o'
      Size = 15
    end
    object Table1Piso: TStringField
      FieldName = 'Piso'
      Size = 15
    end
    object Table1Porta: TStringField
      FieldName = 'Porta'
      Size = 10
    end
    object Table1TemProcurador: TStringField
      FieldName = 'Tem Procurador'
      Size = 3
    end
    object Table1Q1: TFloatField
      FieldName = 'Q1'
    end
    object Table1Q2: TFloatField
      FieldName = 'Q2'
    end
    object Table1Q3: TFloatField
      FieldName = 'Q3'
    end
    object Table1Q4: TFloatField
      FieldName = 'Q4'
    end
    object Table1Q5: TFloatField
      FieldName = 'Q5'
    end
    object Table1Q6: TFloatField
      FieldName = 'Q6'
    end
    object Table1Q7: TFloatField
      FieldName = 'Q7'
    end
    object Table1Q8: TFloatField
      FieldName = 'Q8'
    end
    object Table1Q9: TFloatField
      FieldName = 'Q9'
    end
    object Table1Q10: TFloatField
      FieldName = 'Q10'
    end
    object Table1Q11: TFloatField
      FieldName = 'Q11'
    end
    object Table1Q12: TFloatField
      FieldName = 'Q12'
    end
    object Table1O1: TFloatField
      FieldName = 'O1'
    end
    object Table1O2: TFloatField
      FieldName = 'O2'
    end
    object Table1O3: TFloatField
      FieldName = 'O3'
    end
    object Table1O4: TFloatField
      FieldName = 'O4'
    end
    object Table1O5: TFloatField
      FieldName = 'O5'
    end
    object Table1O6: TFloatField
      FieldName = 'O6'
    end
    object Table1O7: TFloatField
      FieldName = 'O7'
    end
    object Table1O8: TFloatField
      FieldName = 'O8'
    end
    object Table1O9: TFloatField
      FieldName = 'O9'
    end
    object Table1O10: TFloatField
      FieldName = 'O10'
    end
    object Table1O11: TFloatField
      FieldName = 'O11'
    end
    object Table1O12: TFloatField
      FieldName = 'O12'
    end
    object Table1F1: TFloatField
      FieldName = 'F1'
    end
    object Table1F2: TFloatField
      FieldName = 'F2'
    end
    object Table1F3: TFloatField
      FieldName = 'F3'
    end
    object Table1F4: TFloatField
      FieldName = 'F4'
    end
    object Table1F5: TFloatField
      FieldName = 'F5'
    end
    object Table1F6: TFloatField
      FieldName = 'F6'
    end
    object Table1F7: TFloatField
      FieldName = 'F7'
    end
    object Table1F8: TFloatField
      FieldName = 'F8'
    end
    object Table1F9: TFloatField
      FieldName = 'F9'
    end
    object Table1F10: TFloatField
      FieldName = 'F10'
    end
    object Table1F11: TFloatField
      FieldName = 'F11'
    end
    object Table1F12: TFloatField
      FieldName = 'F12'
    end
    object Table1Proprietrio: TStringField
      FieldName = 'Propriet�rio'
      Size = 3
    end
    object Table1rea: TFloatField
      FieldName = '�rea'
    end
    object Table1QE1: TFloatField
      FieldName = 'QE1'
    end
    object Table1QE2: TFloatField
      FieldName = 'QE2'
    end
    object Table1QE3: TFloatField
      FieldName = 'QE3'
    end
    object Table1QE4: TFloatField
      FieldName = 'QE4'
    end
    object Table1QE5: TFloatField
      FieldName = 'QE5'
    end
    object Table1QE6: TFloatField
      FieldName = 'QE6'
    end
    object Table1QE7: TFloatField
      FieldName = 'QE7'
    end
    object Table1QE8: TFloatField
      FieldName = 'QE8'
    end
    object Table1QE9: TFloatField
      FieldName = 'QE9'
    end
    object Table1QE10: TFloatField
      FieldName = 'QE10'
    end
    object Table1QE11: TFloatField
      FieldName = 'QE11'
    end
    object Table1QE12: TFloatField
      FieldName = 'QE12'
    end
    object Table1Permilagem: TFloatField
      FieldName = 'Permilagem'
    end
    object Table1Aux1: TStringField
      FieldKind = fkCalculated
      FieldName = 'Aux1'
      Size = 1
      Calculated = True
    end
    object Table1Aux2: TStringField
      FieldKind = fkCalculated
      FieldName = 'Aux2'
      Size = 1
      Calculated = True
    end
    object Table1Aux3: TStringField
      FieldKind = fkCalculated
      FieldName = 'Aux3'
      Size = 1
      Calculated = True
    end
    object Table1Aux4: TStringField
      FieldKind = fkCalculated
      FieldName = 'Aux4'
      Size = 4
      Calculated = True
    end
    object Table1Aux5: TStringField
      FieldKind = fkCalculated
      FieldName = 'Aux5'
      Size = 1
      Calculated = True
    end
    object Table1Honorrios1: TFloatField
      FieldName = 'Honor�rios1'
    end
    object Table1Honorrios2: TFloatField
      FieldName = 'Honor�rios2'
    end
    object Table1Honorrios3: TFloatField
      FieldName = 'Honor�rios3'
    end
    object Table1Honorrios4: TFloatField
      FieldName = 'Honor�rios4'
    end
    object Table1Honorrios5: TFloatField
      FieldName = 'Honor�rios5'
    end
    object Table1Honorrios6: TFloatField
      FieldName = 'Honor�rios6'
    end
    object Table1Honorrios7: TFloatField
      FieldName = 'Honor�rios7'
    end
    object Table1Honorrios8: TFloatField
      FieldName = 'Honor�rios8'
    end
    object Table1Honorrios9: TFloatField
      FieldName = 'Honor�rios9'
    end
    object Table1Honorrios10: TFloatField
      FieldName = 'Honor�rios10'
    end
    object Table1Honorrios11: TFloatField
      FieldName = 'Honor�rios11'
    end
    object Table1Honorrios12: TFloatField
      FieldName = 'Honor�rios12'
    end
    object Table1PagaHonorrios: TBooleanField
      FieldName = 'Paga Honor�rios'
    end
    object Table1Hon1: TFloatField
      FieldName = 'Hon1'
    end
  end
end